home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / left_right game (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  168 lines
  1. 1000 printchr$(142);"[147][158]";
  2. 1010 poke53281,9:poke53280,12
  3. 1020 print" [157] [157] [157] [157]    [146]  [145][157] [145][157] [145][157] [145][157]    ";
  4. 1030 print"[157][157][157]  [157][157][157]    [146]  [145][157] [145][157] [145][157] [145][157]    [157][157][157]  ";
  5. 1040 print"[145][145]     [157][157][157] [157] [157] [157] ";
  6. 1050 print" [145] [145] [145] [145] "
  7. 1060 print"   [157][157][157] [157] [157] [157] [145][145]   [145][157] [145][157] [157][157][146][223][223][157][146][223][223]";
  8. 1070 print" [145][157] [145][157] [145][157] [145][157] [145][157]";
  9. 1080 print"     [157][157]  [157] [157][157][157][157][157]    [145][157][157][157][157] [145][157] [145][157] [145][157] [145][157]";
  10. 1090 print" [157] [157] [157] [157] [145][145]   [145][145][157] [157] [157] [157] [157] ";
  11. 1100 print"[145][145][157][145][145]     [157][157][157] [157] [157] [157] ";
  12. 1105 print:print:print"";
  13. 1110 print"     [157][157]  [157] [157][157][157][157][157]    [145][157][157][157][157] [145][157] [145][157] [145][157] [145][157]";
  14. 1120 print"";
  15. 1130 print" [145][157] [145][157] [145][157] [145][157]     [157] [157] [157] [157] [145][145][157][157][157][157]    ";
  16. 1140 print"";
  17. 1150 print" [145][157] [145][157] [145][157] [145][157]     [157] [157] [157] [157] [157][157][157][145][145][145][145] [157] [157] ";
  18. 1160 print"";            
  19. 1170 print" [145][157] [145][157] [145][157] [145][157]    ";
  20. 1180 print"[157][157][157]  [157][157][157]    [146]";
  21. 1200 print:print:print"[129]   inspired by a game by truck smith."
  22. 1210 print"    completely revamped by jimmy w."
  23. 1300 poke198,0:wait198,1:getk$:poke53281,11:poke53280,14
  24. 1301 print"[147]"
  25. 1400 print"[147]  [212]he rules of [158]left/right game are"
  26. 1410 print:print"deceptively simple:  [211]elect keys on the"
  27. 1420 print:print"keyboard for your left and right hands."
  28. 1430 print:print"[212]hen, at the tone, if the small block"
  29. 1440 print:print"on the screen has a black background,"
  30. 1450 print:print"press the key corresponding to the side"
  31. 1460 print:print"of the screen whose color bar matches"
  32. 1470 print:print"the color of the block."
  33. 1480 print:print:print"           [208]ress space bar":poke198,0:wait198,1:getk$
  34. 1500 print"[147]   [201]f the background around the small"
  35. 1510 print:print"block is grey, then press the key"
  36. 1520 print:print"corresponding to the color bar that"
  37. 1530 print:print"doesn't match the color of the small"
  38. 1540 print:print"block."
  39. 1550 print:print"  [217]ou get one second to decide which"
  40. 1551 print:print"key to press, then the clock starts to"
  41. 1552 print:print"count up.  [201]f it reaches 10 seconds,"
  42. 1553 print:print"you lose.  [201]f you ever press the wrong"
  43. 1554 print:print"key, you lose."
  44. 1560 print:print:print"           [208]ress space bar":poke198,0:wait198,1:getk$
  45. 1600 print"[147] [208]ress a key with your [158]left hand."
  46. 1610 poke198,0:wait198,1:getkey$(0)
  47. 1620 print"[147] [208]ress a key with your right hand."
  48. 1630 poke198,0:wait198,1:getkey$(1)
  49. 1631 ifkey$(0)<>key$(1)then1640
  50. 1632 gosub5900:print"[147][200]ey! [196]eadbrain![160][160][217]ou pressed the same"
  51. 1634 print:print"key for both hands!  [215]ant to try again?"
  52. 1635 forc9=1to2444:next
  53. 1636 gosub5900
  54. 1638 goto1600
  55. 1640 print".........here goes....."
  56. 1650 forcc=1to500:next
  57. 2000 print"[147]"
  58. 2100 poke53281,14
  59. 2200 poke53280,7
  60. 2300 dimc$(16)
  61. 2400 ti$="000000":ts$=ti$
  62. 2600 gosub11300:reminit position array
  63. 2700 gosub11900:reminit colors
  64. 2800 forcx=1to4096
  65. 2900 lc=int(rnd(ti)*8+1):poke53280,lc+rnd(ti)*2:right%=rnd(ti)*2
  66. 3000 forc9=1to4:bk%(c9)=rnd(ti)*2:next
  67. 3100 bl=int(rnd(ti)*9)+1
  68. 3200 ifbl=5thenforc9=2to4:bk%(c9)=bk%(1):next
  69. 3300 ifbl=2thenbk%(1)=bk%(3)
  70. 3400 ifbl=4thenbk%(1)=bk%(2)
  71. 3500 ifbl=6thenbk%(3)=bk%(4)
  72. 3600 ifbl=8thenbk%(2)=bk%(4)
  73. 3700 gosub9200:gosub10300:gosub4500
  74. 3800 gosub5700:remscore
  75. 3900 gosub5900:remsound
  76. 4000 gosub5100:remtime
  77. 4100 gosub6600:remright/wrong
  78. 4200 nextcx
  79. 4300 goto12500
  80. 4400 rem"draw bars"
  81. 4500 printc$(lc+(right%=1));
  82. 4600 print"";spc(3);"              ";
  83. 4700 printc$(lc+1+(right%=1));
  84. 4800 print"";spc(23);"              ";
  85. 4900 return
  86. 5000 remkeywait & countdown
  87. 5100 ti$=ts$:k$=""
  88. 5200 getk$:ifk$=key$(0)ork$=key$(1)then5600
  89. 5300 gosub8000
  90. 5400 goto5200
  91. 5500 ifk$<>" "then5100
  92. 5600 ts$=ti$:return
  93. 5700 print"[146][211]core: ";sc;
  94. 5800 return:remfrom scoreprint
  95. 5900 rem start of round sound
  96. 6000 poke54296,0:poke54296,15
  97. 6100 poke54273,2:poke54272,44
  98. 6200 poke54277,7:poke54278,249
  99. 6300 poke54275,0:poke54276,33
  100. 6400 poke54276,32
  101. 6500 return
  102. 6600 ifright%=0thenifk$<>key$(bk%(bl%(bl)))then7000
  103. 6700 ifright%=1thenifk$=key$(bk%(bl%(bl)))then7000
  104. 6800 sc=sc+1
  105. 6900 return
  106. 7000 print"[147] [217]ou loose joweled turkey!"
  107. 7100 print:print"[217]ou don't even know your left from your"
  108. 7200 print:print"right!.... [217]our final score was a"
  109. 7300 print:print"mere "sc" out of a possible (to"
  110. 7400 print:print"anyone with the brains of a gnat) score"
  111. 7500 print:print"of 4096."
  112. 7600 print"............ [217]ou want to play again?"
  113. 7700 poke198,0:wait198,1:getk$
  114. 7800 ifk$<>"y"then12400
  115. 7900 run
  116. 8000 print"[146]"spc(22)"[212]ime used: "val(ti$);
  117. 8100 ifti$>"000010"then8300
  118. 8200 return:remfrom time print
  119. 8300 print"[147][217]ou deadbrained poke!"
  120. 8400 print:print"[217]our ten seconds of indecision have"
  121. 8500 print:print"cost you dearly.  [217]our final score is"
  122. 8600 print:print"a mere "sc" points out of a possible"
  123. 8700 print:print"4096."
  124. 8800 print:print"  [196]o you want to give your brain a rest?"
  125. 8900 poke198,0:wait198,1:getk$
  126. 9000 ifk$="y"then12400
  127. 9100 run
  128. 9200 forc9=217to242:pokec9,peek(c9)or128:next
  129. 9300 print"";:forc=1to11:printspc(20);bg$(bk%(3));"                    ";
  130. 9400 next
  131. 9500 print"";
  132. 9600 forc=1to11:printspc(20);bg$(bk%(4));"                    ";:next
  133. 9700 forc9=217to242:pokec9,peek(c9)or128:next
  134. 9800 print"";:forc=1to11:printbg$(bk%(1));"                    ":next
  135. 9900 print"";
  136. 10000 forc=1to11:printbg$(bk%(2));"                    ":next
  137. 10100 forc9=217to242:pokec9,peek(c9)or128:next
  138. 10200 return
  139. 10300 remdraw box
  140. 10400 gosub10100
  141. 10500 printc$(lc+lr);
  142. 10600 d$=""
  143. 10700 print"";left$(d$,po%(1,bl));      
  144. 10800 gosub10100
  145. 10900 fori=0to6
  146. 11000 printspc(po%(0,bl))"         "
  147. 11100 nexti
  148. 11200 return
  149. 11300 forc9=1to9:readpo%(0,c9):readpo%(1,c9):next
  150. 11400 data5,2,15,2,25,2,5,7,15,7,25,7,5,12,15,12,25,12:remhoriz/vert block pos'n
  151. 11500 bl%(1)=1:bl%(2)=1:bl%(3)=3
  152. 11600 bl%(4)=1:bl%(5)=1:bl%(6)=3
  153. 11700 bl%(7)=2:bl%(8)=2:bl%(9)=4
  154. 11800 return
  155. 11900 remcolor initialization
  156. 12000 c$="[159][158][156][129][149][152][150]"
  157. 12100 forc9=0to15:c$(c9)=mid$(c$,c9+1,1):next
  158. 12200 bg$(0)="[144]":bg$(1)="[155]"
  159. 12300 return
  160. 12400 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  161. 12405 poke631,13:poke632,13:poke198,2:end
  162. 12500 print"[147]  [217]ou clod!  [196]o you realize you have"
  163. 12600 print:print"over an hour of your precious time to"
  164. 12700 print:print"win this stupid game!?!?!"
  165. 12800 poke198,0:wait198,1:getk$
  166. 12900 ifk$<>"y"thenrun
  167. 13000 goto12400
  168.